home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / swag / delphi.swg / 0153_Re: Popup Menus at runtime.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-30  |  2.0 KB  |  71 lines
  1.  
  2. {
  3. > Can you add menu items to the standard popup menu of a form?
  4. > 
  5. > I want to do the same thing that Borland did for their PageControl
  6. > component.  If you right-click on the Page Control, you get the same std
  7. > menu but with a couple of new items inserted at the top (e.g. New Page).
  8. > 
  9. > I remember reading a post asking about how to create menus at runtime.
  10. > I don't think it was answered through the newsgroup, so...
  11. > How do you create menus at runtime?
  12. > 
  13.  
  14. Do you mean add things to the right click menu when designing? Or create a popup 
  15. when the program is running? 
  16.  
  17. When running simply create a TPopupMenu and assign it to the PopupMenu property.
  18. This can either be done at design-time or run-time.  It won't show at design time 
  19. however, since that menu is the form designers.
  20.  
  21. To add items to the context menu that is shown at design-time, you need to create 
  22. a new component editor for your component.
  23.  
  24. You'll need to override GetVerbCount to return the number of items you want to
  25. add to the menu, and GetVerb to actually fill the list of items.  You'll also
  26. need to override ExecuteVerb to actually do the actions.
  27.  
  28. For example:
  29. }
  30.  
  31. TMyEditor = class(TComponentEditor)
  32. public
  33.   function GetVerbCount : Integer; override;
  34.   function GetVerb(Index : Integer); override;
  35.   procedure ExecuteVerb(Index : Integer); override;\
  36. end;
  37.  
  38. function TMyEditor.GetVerbCount : Integer;
  39. begin
  40.      Result := 2;
  41. end;
  42.  
  43. function TMyEditor.GetVerb(Index : Integer);
  44. begin
  45.   case Index of
  46.         0 : Result := 'Say Hi';
  47.          1 : Result := 'Say Bye';
  48.   end;
  49. end;
  50.  
  51. procedure TMyEditor.ExecuteVerb(Index : Integer);
  52. var
  53.    MyMsg : String;
  54. begin
  55.      case Index of
  56.         0 : MyMsg := 'Hi';
  57.         1 : MyMsg := 'Bye;
  58.      end;
  59.      MessageDlg(MyMsg,mtInformation,[mbOK],0);
  60. end;
  61.  
  62. You'll also need to register the component editor in the Register proc for the 
  63. component.
  64.  
  65. procedure Register;
  66. begin
  67.      RegisterComponents('My Component Page',[TMyComponent]);
  68.      RegisterComponentEditor(TMyComponent,TMyEditor);
  69. end;
  70.  
  71.